tt tt st st Ht tt st set 
AAAS St St tt St ts 
AAS St tt Ht se 


| praey 


S555 


AAAAAAAAA 
AAAAAAAAA 
AAAAAAAAA 
AAA 
AAA Aah 
aA bad 
ARB ALA 
Llalal ABA 
AAA A 
AMA AaB 
AAA ARM 
Aka Bak 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
ABA AAA 
AKA A 
BRA AAA 
AAA AAA 
AAA AAA 


POAMOAMAOAIMOAIMAAOM 
AEOAAIMAOAAIAIMAIMOIAIMAIAIMAIAIY 
PAAAANAIMAIAOAIAIAIOAI 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


WIVELLEL EL LOL LLL LL LLQLLQLLLQLEILLILQPLQLELELELLELELELELELl ELLE LeeLee ! < 


zo 
vw> 


etd th eh eh ed et od ee oh ent eee ee ee Pee eee eee oe ee oe. oe oe es oe oe oe oe os ee es a eS 


oS 


wus A 
usu eae) Ww lis 
usu usu usu 
eae) [eereey usu 
usu uu usd 
sud usu wus 


dud wu Ju 
dd dd ad ad 
eS TSU RCSRUNE VERSUS whee re Uivervesocsesgoel 


a ee ee ee ee ee ee 
Ce ed ee ed ee ee 


ca 
ca 
ca 
ca 
cc 
cc 
aeacaccac 
aaaaca 
ww 


VMBVYVUYUUYUUYUY 
VBYVVVEVYUYUYUYUY 


LLLLLLLLLL 
LLLLLLLLLL 


**F ]LE**1D**CREATE 


4 
1b-sen-1984 02:12:45 YAN-11 BLisgcS2 4.0276 
MODULE CREATE (LANGUAGE (BLISS 58) ’ 
— = ‘'yv04-00 


BEGIN 


SR RRE RRA ER EEE AAEAARA REAR EEE E TEETER 


'@ 

'# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
't ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENS WITH THE 
NCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


Ooooooo 
Sssssssss 


NOUS WN (OOO NAUES WN OOONOU Ew 


Oooooooo 


foto lolololo) 


» 
* 

* 

* 
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# 

* 

' * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. . 
' « 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

* 

® 

© 

* 

® 

2 

* 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 
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' 3 PTTIIIITLI ITLL LLL LLL LLL LLL TLL Liliiiiiiiiiiiiiiiiiiiiii ii 
5 0 '+¢ 
031 ! 
¢ FACILITY: MTAACP 
9 4 ; ABSTRACT: 
$ This module executes the create function 
99 8 ENVIRONMENT : 
0040 i Starlet operating system, including privileged system services 
Boe and internal exec routines. 
3 i-- 
4 
45 ‘ 
d ooc? | i 
rts 3 : AUTHOR: D. H. GILLESPIE, CREATION DATE: 3-JUN-77 
49 0949 : MODIFIED BY: 
24 51 i v03-002 MMD0153 Meg Bysont, 26-Apr-1983 9:08 
26 26 ! Change reference t9 to the symbol ANSI _LBLSZ. Add HDR4 
5 ! processsing which ng Ludes: 1) Changing the number of HDRs 
4 54 ' to look for when positioning to write a file. 2) Add the 
5 2? writing of HDR4 to the routine WRITE_HEADERS. 
5 a i v03-001 MMD0001 Meg Dumont, 5-Nov-1982 16:22 


J 4 
void 1e-$5p-198e 19:46:37 — EMTARCPCSRESCREAYE B30; ‘ie a 
ha 


The file should be peeaseed after the tape is positioned 
right before the data starts, to make sure all 10 has been 
completed. Also, eliminate user labels code. 


33 38 Allow the setting of user handled For on a file create. 
2 Add routine to set user handled EOT. 
061 v02-012 tara Ay David Michael Walp 11-Nov-1980 
eg bO¢ New BLISS compiler, FUNCTION declaration changed from 
6 be BBLOCK to BLOCK. Old compiler use, to give a longword 
¢: bee with a declaration of ‘BBLOCK [C 
66 B08 v02-011 MCNO018 aria del C. Nasr 26-Aug-1980 
24 99 Implement bug +f “described in MCNOO17 
9 0089 v02-010 MCNO017 Maria del C. Nasr 29-Jul-1980 
0 070 Check if EOT was sensed after writing the header Labels of the 
71 0071 file being created, instead of waiting for virtual 10 to lock 
ue Bore the error. Also eee ® kernel mode routine which will vpgeye 
7 007 the partfile flag fn he VCB, to account for cancel I0. his 
7% 0074 fixes a problem in which cresting empty files at the end of a 
Le Beee tape will cause a runaway tape situation. 
a 0077 V02-009 REFORMAT Maria del C. Nasr 30-Jun-1980 
79 th v02-008 Sener set Maria del C. Nasr 10-Jun-1980 
81 
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0084 A0007 = MCNO011 Maria del C. Nasr 04-Feb-1980 9:05 
85 0085 Clear logical end of volume flag after spacing tape mark 

Boge back to Tix bug. 
88 0088 A0006 MCNO003 Maria del C. Nasr 28-Sep-79 10:27 
44 4.94 Add HDR3 processing 
91 0091 A000S MmCN0001 Maria del C. 21-Se a 10:15 
4 B26 Added argument to CHECK FILE hee “colt to fix bug in 
9 009 “create if'’ function. 
94 0094 
95 0095 
96 9096 ae 
97 009 
oe sia LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
10 100 REQUIRE ‘SRC$:MTADEF .B32'; 
106 tbe FORWARD ROUTINE 
10 36 MT : NOPRES NOVALUE ! main routine to create a file 
104 ACCESS NEW_FILE : COMMON_CALL NOVALUE, ! access a newly created file 
105 pees INIT _NEW_FILE : COMMON_CALL NOVALUE , ! initialize new file 
106 89 SET_OSER-E : COMMON-CALL NOVALUE, ! set user wot chandt ing am file 
10 0490 WRITE_HEADERS : NOVALUE CSURITE HEADER. ! write hd dr ane hdr3,hdr4 
198 4 UPD_PARTF ILE : COMMON_CALL NOVALUE; ! update ‘outils flag in the VCB 
110 38 EXTERNAL ROUTINE 
111 494 ACCESS_FILE : COMMON_CALL, ' access file 
Me 95 CHECK_ACCESS : fase “CALL, ! check access to volume 
11 hy CHECK_FILE_ACC : rieree “CALL ' check access to file 
114 49 CLOSE-FILE : LSCLOSE_ rice, i close file 
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EXTERNA 


MOUNT vol" 
NEXT _JOL_WRITE 
POSITION-TO_END 
READ_HDR 

ACE 


WRITE-TM 


CURRENT wcB 
10_PACKET 
10-STATUS, 
HDR1 


HDR 
HDR 


HDR4 
USER_STATUS 


Ifo$e0- 


COM L 
ann HOR, 


LSNEXT-VOL WRIT, 
COMMON CALE, 


COMM L, 
ADDRESSING MODE caBSOLUTE) 
COMMON c. 


COMMON CALL 
COWEN Cat 1H’ 


BBLOCK, 
BBLOCK, 


BBLOCK, 
CK 


4 AX-11 Bliss-32 V4.0-7 Page 3 
vie 95: 1g: % MTAACP. SRCIC CREATE e Bsa: . (1) 

format 44, & + 

format hea 

get copy r+ "s fib 

get header to. start with 

mount a volum 


get next volume for write 

position to end of vol set 

read header 

space given number of blocks 

apece S Elven qupser of tape marks 
u 

! “topte ascii output 

to clear lo cee end of volume bit 

i write tape block 

write tape mark 


address of current window control block 
address of io request packet 

0 status returne 

address of HDR1(EOF1) Label 

address of HDR2(EOF2) Label 

address of HDR3S Label (EOF3) 

address of HDR4 Label (EOF4) 

status to return the user 


4 
CREATE 1BzSep-1984 02:12:45 YAN-11 BL inn-52_v4.0-742 rage | | 


¢ ; ¢ GLOBAL ROUTINE MTA_CREATE : NOPRES NOVALUE = 
4 144 
g ae 
8 S ' FUNCTIONAL DESCRIPTION: 
‘ 3 This is the main processing routine for MTAACP create function 
9 1 CALLING SEQUENCE: 
. : ¢ MTA_CREATE() 
¢ 534 INPUT PARAMETERS: 
535 none 
4 5 ° 
5 5 IMPLICIT INPUTS: 
6 538 HDR1 - address hdri(eof1) Label 
7 539 HDR - address hdr2(eof2) Label 
8 HDR - address hdr3(eof3) label 
9 - address hdr4(eof4) Label F 
0 10_PACKET = address of current io request packet : | 
1 CURRENT_VCB = address of current vcb 
5 OUTPUT PARAMETERS: ; 
none 


IMPLICIT OUTPUTS: 
The header label set is written and the access to the file made if requested 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 
none 


USER ERRORS: 
SS$_BADPARAM 
SS$~FILALRACC 
SS$~FILENOTEXP 
NOPRIV 


bad input parameters to create or must ask to write file 
only one file at a time apes on magnetic tape 
the file about to be overlayed is not expired 
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SS$_ the user does not have necessary privileges 
BEGIN 

66 EXTERNAL REGISTER 

of COMMON_REG; 
87 69 LOCAL 
88 70 INC_SEQ_NUM, ! indicator for init_new_file routine 
34 q PACRET : REF BBLOCK, ! address of current io Fequest packet 
4 7 : address of buffer descriptors 
38 75 A : REF BBLOCKVECTOR C, ABDSC_LENGTH) ; 
94 u FIB : REF BBLOCK, ' address of copy of user's fib 
95 4 FUNCTION : BLOCK (1); ! io function 
3 3 setup pointers to interesting structures 
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Mm 4 
1er$ep=198e 15:48:37 EnaacPesReScREATE 83271 ae 


PACKET = .1O_PACKET; 
address of buffer descriptors 


ABD = .BBLOCKC.PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPT); 
FIB = GET_FIB(.ABD); ! get copy of user's file information block 


get io function code 

FUNCTION = .PACKETCIRPSW_FUNC]; 

is the function requested a valid one? 
i) 
t  eaeatnt GTRU ABDSC_ATTRIB 


IF 1 ie TRUNC) OR .FUNCT $V_DELETE] 


I 
OR NOT TFUNCTIONLIOSV_CRE 
(.FIBLFIB$V_EXTEND] OR .PAC 

FUNCTIONL10$V_A 
OR NOT .FIBCFIB$V_WRITE) 
pen’ UNCTHONCIOSV_ACCESS] 
ERR_EXIT(SS$_BADPARAM) ; 


! make sure that a create is not done on a volume set that has an out 
standing access 


Onc 
ATE 
KET 
CCE 


N 
T 
E 
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IF .CURRENT_WCB NEQ 0 
-FUNCTIONCIOS$SV_CREATE) 
ERR_EXIT(SSS$_FILALRACC); 

now for the create 


IF_ .FUNCTIONCIOSV_CREATE) 
THEN 
BEGIN 


! if there is a par 
access a partial 


file then it is closed. if the user wants to 


ial 
ile, the access function io must be used 


t 
f 
Fy gg, CUMRENT VERE VCRSY PORT LED 

CLOSE_FILE(); 
CHECK_ACCESS(1); ! MUST HAVE WRITE PRIVILEGE JUST TO CREATE 
you gosttten the tape as requested unless this is a create if not 


IF .PACKETCIRPS$V_FCODE] EQL IOS$_ACCESS ! if create if not found 
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CREAT 16-Sep-1984 02:12: AX-11 Bliss-32 V4.0-74 Page 6 
vOe-000 er8een 1 8Rs 93:18:43 = EAN aAce SAEs cAE AYE -Oa5e4 9° 12) 
; $ $38 3 OR 
H 6 & NOT (.FIBCFIBSV_REWINDJ 
; 8 640 4 OR 
; 9 641 4 -F IBCF IBSV_CURPOS]) 
: 260 ong 
; 61 bee POSITION_TO_END() 
3 20 644 ELSE 
; 26 0645 4 BEGIN 
3; 264 Boe8 4 
; 265 0647 4 IF _ .FIBCFIBSV_REWIND) 
3 $8 648 4 THEN 
; 26 649 BEGIN 
3 44 peat MOUNT_VOL(1, SFIELDMASK(MOUSV_REWIND) + SFIELDMASK(MOUSV_LBLCHECK)); 
; 70 bees IF NOT READ_HDR() 
: ei 0653 5 HEN 
3 Lf: 0654 5 ERR_EXIT(SS$_TAPEPOSLOST); 
; 27 0655 5 
: 274 0656 5 END 
; 275 0657 4 ELSE 
: 276 0658 4 
3; 277 0659 4 ' create function with positioning indicators 
3 HG 0660 4 ' 
; 279 0661 4 GET_START_HDR(); 
; 280 0662 4 
3; «281 066 END; 
; see 066 
; 28 0665 ! check expiration on overlayed files and position tape 
; 284 0666 ! 
; 285 0667 
3; 286 0668 ; IF NOT .CURRENT_VCBCVCB$V_LOGICEOVS) 
; rt 0669 THEN 
; 288 0670 4 EGIN ! overlaying file if not at end of volume set 
: 289 0671 4 INC_SEQ_NUM = 0; ! do not increment file number 
3 $30 gor ? CHECK_FILE_acc(O); ! can file be overlayed? (0)=mta_create 
; 292 0674 4 ! position to where file is to be written 
> 293 0675 4 ! 
3; 294 0676 4 
3 95 0677 4 IF .CURRENT_VCBCVCB$B_TM] EQL 0 
: 96 0678 4 THEN 
: 344 0679 4 
; 298 0680 5 IF (.HDR2CHD2$L_HD2LID] EQL ‘HDR2") 
: 299 4 1 4 AND 
: 4 6 § ? (. CURRENT_VCBCVCBSV_STARF ILEJ) 
3 4 Oe 4 IF . CURRENT VCBCVCB$B_LBLCNT) GTR 3 
3; 30 85 4 THEN SPACE (4) ' hdri,hdr2,hdr3, hdr4 (or user Label) 
; 04 0686 4 me ELSE SPACE(=3) i hdel, hdré, and hdr3 Lbls 
; 306 5B & SPACE (2) ! not VMS file, space hdrl and hdr2 
: 307 89 4 ELSE 
: 08 690 BEGIN 
; #4 93) SPACE_TM(-1); ! backspace tm 
s $11 $98 IF_ .HDR2CHD2$L_HD2LID] EQL ‘HDR2' ! check if hdr2 found 
; 312 694 5 THEN 
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SPACE (=2) 
ELSE 
SPACE(=1); 


END; 
END 
BEG! 
SPACE 1); 


INC_SEG_NUM 
END; 


} initialize new file and write headers 


FORMAT_HDRS(); 
KERNEL~CALL(IN 
WRITE_READERS ( 
return fid to user in fib 


FORMAT_FID(FIBCFIBSW_FID_NUMJ); 


1986 98:48:37 


TM(=1); 
KERNEL CALL CUPDVCB_LEOV, 0); 


yt Meu PELE ~ INC_SEQ_NUM) ; 


AX-11 Bi ieg-3e Va -Oarae 
MTAACP.SRCICREATE .B32; 


! backspace hdr1 and hdr2 
! no hdr2, backspace hdr1 only 


! Logical end indicated by tape mark 
' not at end of vol anymore 
! increment file number 


{ write hdr1, hdr2, hdr3 and hdr4 


FIBCFIBSW_FID_RVN] =~.CURRENT_VCBCVCB$B_CUR_RVNI; 
now if newly created file should be 2ccessed do so 


IF_ .FUNCTIONCIOSV_ACCESS) 


N 
ACCESS_NEW_FILE(.FIB, .PACKET, .ABD); 


END; 


routine 
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TLE CREATE 
\V04-000\ 

TRN ACCESS_FILE, CHECK_ACCESS 

TRN CHECK _FILE_ACC, CLOSE FILE 

TRN FORMAT FID; FORMAT_HDRS 

TRN GET FIB, GET_START-HDR 

TRN MOUNT VoL NEXT _VOC_WRITE 


TRN HOR2, HORS, HDR4 
XTRN USER. STATUS, SYSSCMKRNL 


-PSECT SCODES,NOWRT 2 
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CREATE 16-Sep-1984 02:12: AX-11 Bliss-32 V4.0-742 Page 8 
04-000 eaee=h 8 Re PSilg:ss | YANG AL kiss 32 Ve. Os24e 9° 02) 
000 00 «ENTRY MTA_CREATE, Save nothin 3; 0524 
5300006. ct 09 09 2 HOVL. 10. PACKET, PACKET . baat 
é C B3 n 6 OVL  a4%(PACKET), ABD + 0585 
6 DD 6 B PUSHL ABD + 0586 
00006 cf 01 FB 0000 CALLS #1, GET_FIB : 
2 Q p 0018 MOVL RO. FIB : 
5 20 A ¢ 001 MOVZWL ; (PACKET), FUNCTION + 0590 
1F 17 a2. «EB 00019 BLBS (FIB) > 0595 
1B 55 9 FO 0010 BBS #8, FUNCTION, 2$ : 
0021 TSTB «FUNCTION + 0596 
OF 19 00 BLSS =s«'1$ : 
16 A2 95 000 TSTB ¢(F 1B) + 0598 
1 19 000 BLSS : 
05 32 AS Bi O002A CMP O(PACKET), #5 : 
0¢ 1A 000 E BGTRU _2$ : 
08 55 : EO 000 BBS #5, FUNCTION, 2$ + 0599 
06 01 A2 EB 900 4 1$ BLBS 1(FIB), 3$ + 0600 
02 55 06 £1 00038 BBC #6, FUNCTION, 3$ + 0602 
14 BF 0003C 2$: CHMU sof + 0604 
00006 CF D5 00035 $: TSTL | CURRENT_WCB + 0610 
08 33 0004 BEQL : 
55 95 00044 TSTB FUNCTION + 0612 
04 18 00046 BGEQ 4$ : 
00A4 8F BF 00048 CHMU + 0614 
55 95 0004C 4$: TSTB ‘FUNCTION + 0619 
01 19 0004E BLSS = 5$ ; 
04 0005 RET : 
03 0B AB £9 00051 S$: BLBC 11(CURRENT_VCB), 6$ + 0627 
00006 30 00055 BSBW CLOSE_FILE + 0629 
01 DD 00058 6s: PUSHL #1 : 0631 
00006 CF 01 FB OO05A CALLS #1, CHECK_ACCESS ; 
32 20 A3 06 00 €D 0005F CMPZ72V #0, #6, 32(PACKET), #50 + 0637 
08 13 00065 BEQL 86 7$ ; 
OF 62 03 £0 00067 BBS #3, (FIB), 9$ : 0639 
07 62 04 €0 00068 BBS #4, (FIB), 8$ > 0641 
00006 CF 00 FB O006F 7S: CALLS #0, POSITION_TO_END + 0643 
Ie 11 00074 BRB 11$ F 
17 62 03 £1 00076 8$ BBC 3, ¢FIB), 10$ + 0647 
03 DD OO007A 9$ PUSHL #3. ~ : 0650 
01 DD 0007C¢ PUSHL #1 ; 
00006 CF 02 FB O07E CALLS #2, MOUNT_VOL : 
00006 CF 00 FB 008 CALLS #0, READ_ADR + 0652 
09 50 £8 00088 BLBS RO 11 ; 
0224 af Bf 0088 CHMU «8s o#54 > 0654 
3 11 F BRB 11$ > 0647 
00006 30 90091 10$:  BSBW GET _START HDR > 0661 
4F 0B AB 1 £0 00094 11$: BBS #1,~11(CURRENT_VCB), 16$ : 0668 
4 04 0099 CLRL —«sINC_SEQ_NUM : 0671 
E D4 0 98 CLRL = = (SP) : 0672 
00006 CF 01 FB 09D CALLS #1, CHECK_FILE_ACC ; 
2 AB OQ 90Kg TSTB © 46 (CURRENT_VCBY > 0677 
24 12 000A BNEQ 14$ ; 
32524448 8F 00006 DF D1 OA7 CMPL  @HDR2, #844252232 + 0680 
14 iF B BNEQ 138 ; 
1 2D «AB f 3 BLBC 45(CURRENT_VCB), 138 > 0682 
0 48 AB 1 0008 CMPB {g¢CURRENT_VCB) , a ; 0684 
05 1B OO0BA BLEQU 12$ : 


CREAT 16- AX-11 Bliss-32 V4.0-74 Page 9 oy 
VOn-080 eet ak Ot ae og Pe ee 9 02) 
7E 4 BC MNEGL #4, =(SP) : 0685 
9 ff BF BRB : 
7E CF cl 12$: NE GL #3, =(SP) 0686 
7E 03 CF C6 13$: | MNEGL " -(SP) 0688 
| ¢ BRB 15§ 
7E 4 CE OO0CB 14$: § MNEGL P) 0691 
00006 CF 1 FB OCF CALLS #1 SPACE ™ 
32524448 8F 00006 DF 01 0000 CMPL  @HOR2, #824252232 0693 
Fs 13 done BEQL 13$ 
7E 1 CE O00DE MNEGL #1, -(SP) 0697 
00006 CF 01 Fe 3) 15$: CALLS #1, SPACE 
1B 1 £6 BRB 17§ 0668 
7E ot CE OOOE8 16$:  MNEGL #1, -(SP) 
00006 cr 1 FB OOOEB CALLS #1, SPACE_T™ 
E oi 7D O000F 1, =(SP) 
E DD OO0F SP 
00006 CF 9F OO0F UPDVC 
000000006 9F 04 FB 000F9 CALLS #4, MEP SHESCMKRNL 
54 1 00 9190 MOVL #1, SEQ_NUM 0706 
0000G CF 0 FB 00103 17$: CALLS #0. FORMAT ADRS 0711 
4 DD 00108 PUSHL INC_SEQ_NUM 0712 
01 DD OO10A PUSHL #1 
SE DD 0010C PUSHL SP 
Oo00v CF OF 0106 PUSHAB INIT_N LE 
000000006 9F 04 FB 0011 CALLS #4 SHEYSSCHERNL 
0000v 30 00119 BSBW WRITE HEADERS 0713 
04 A2 9F 0011C PUSHAB CFIBY. 0717 
00006 CF 01 FB OO11F CALLS FID 
08 Ae 2F AB 9B 00134 MOVZBW AMC Ne ice? 8(FIB) 0718 
09 5 06 E1 00129 BBC $s, F NCTI , 18s O7e3 
004c 8F 6B 00120 PUSHR #*M<R os 0725 
0000v CF 03 FB 00131 CALLS #3, Re eB ee _NEW_FILE 
04 00136 18$: —RET 0729 


; Routine Size: 311 bytes, Routine Base: S$CODE$S + 0000 


; 348 0730 1 


vuUz 
cco 
nncx 
xzrxro 
a” 
. 

TR TP TE TETELSTS TOSS TS TOTS TOTETETeTErererererererererererererererere) 
o Oo 
~~ oO™N 
o oOo 
uw S&S 
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16-5 “1984 02:12: AX=11 Bliss-32 v4.0-742 Page 10 
1e=$tp-1984 15:46:37 EATAACPSRESCREAYE -B32s 1 29° (3) 


GLOBAL ROUTINE ACCESS_NEW_FILE (FIB, PACKET, ABD) : COMMON_CALL NOVALUE = 


'e¢ 
t 
' FUNCTIONAL DESCRIPTION: 

this routine accesses a newly created file 


INPUT PARAMETERS: 
argi - address of copy of user file identification block 
argé - address of current io request packet 
args - address of buffer descriptor vectors 


IMPLICIT INPUTS: 
none 


A AXAEMNMMAAAIVIVIVIIUT 
VIEW —OVOONOULS WO 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
Changes made to system data base to allow virtual io. 
Tape mark is written. 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 
none 


OOOO NNN 


AAA A NAA AAI AAA 


COOCOCOCOCCOCOOOSOOCOCOCCOOOCOCOCO OOOO OOCOOOOOOOOoOOO 


} 
| 
| 

i 

' 

t ! 

! CALLING SEQUENCE: 

access_new_file(argi,arg2,arg3) 

4 

i 

i 

i 

i 

i 

i 

i 

i 

i 

1 

i 

i 

i 
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i 

i 
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i 

i 

bo 


7 
7 
76 
76 - 
76 
76 BEGIN 
765 
766 EXTERNAL REGISTER 
; COMMON ; 
88 EXTERNAL 
4 ooy USER_STATUS : VECTOR; ! status to return to user 
ak MAP 
77 FIB : REF BBLOCK, ! file information block 
ae PACKET : REF BBLOCK; ' address of io request block 
77 
5S 


and startup virtual io 


WRITE_TM(); 


! If the USEREOT flag is set in the FIB block of the I/0 then as long 
! as this file is accessed allow user eot handling 


KERNEL_CALL(SET_USER_EOT, .FIB); 


!' Write tape mark, create window, setup data base connections, complete io, 
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F 5 
CREAT 16-Sep-1984 02:12: AX-11 Bliss-32 V4.0-74 Page 11 
v04- 132888-1 382 93:18:49 MIAACP’ SRESCREAYE. 03071 - (3) 
: 407 7 3 ! If EOT is sensed, request a next volume, and clear the partial file flag ; 
; 408 ? ; gince the end of volume Labels will be written. If user handling of EOT : 
; re f , ! is enabled then inform user of the condition. : 
3 (411 79 IF NOT .CURRENT_VCBCVCB$V_ENUSEREOT) ; 
; 716 79 THEN : 
> 41 794 BEGIN : 
> 414 795 : 
; 415 79 IF .JO_STATUS EQL SS$_ENDOF TAPE ; 
3 $18 79 THEN ° 
3 64) 798 4 BEGIN : 
; 418 799 4 KERNEL _CALL (UPD_PARTFILE, 0); ¢ 
; 419 800 4 NEXT_VOL_WRITE(); : 
; 20 801 END; ‘ 
; 421 44 END : 
3 6 ¢ 080 ELSE : 
; 4 0804 USER_STATUS(CO) = .JO_STATUS; ! return status to user ; 
> 424 0805 ' 1/0's will be blocked ‘ 
; 425 Dane ! and completed in error ‘ 
; ? $ 44 ! by the driver : 
; 428 0809 KERNEL_CALL(ACCESS FILE, .FIBCFIBSL_ACCTLJ, .PACKETCIRPSL_PIDJ, 0, 1, .ABD); ‘ 
: 429 0810 KERNEL_CALL(START_VIO); : 
; 430 0811 1 END; ! end of routine ‘ 
07FC 00000 «ENTRY SE DT a lal Save R2,R3,R4,R5,R6,R7,R8,-; 0751 
00006 30 90002 BSBW = WRITE_TM ; 0780 
04 AC DD 0000 PUSHL FIB ; 0785 
gr DD 00008 PUSHL #1 : 
E DD Q000A PUSHL SP ; 
0000v CF 9F 0000C PUSHAB SET_USER_EOT : 
00000000G 9F os 4 00010 CALLS #4, @#SYSSCMKRNL : 
20 p AB 1 £0 00017 BBS #1, 45(CURRENT VCB), 1$ : 0792 
00000878 = 8F 0000G CF D1 0001 CMPL {9.StATUS, #2168 ; 0796 
1¢ 12 000 BNEQ $ : 
7E g! 7D 000 MOVa #1, -(SP) ; 0799 
E 0D 0002A PUSHL P ; 
0000v CF 9F 0002C PUSHAB UPD_PARTFILE : 
000000006 9F Be 4 88 CALLS #4, @#SYSSCMKRNL 3 
one ay Bonk oa SEAT VOL MITE : se 
0000G CF 0000G CF DO ¢ 1$ MOVL 10_STATUS, USER_STATUS 3 0804 
Oc aC OD 43 2% PUSHL ABD ; 0809 
gl DD Bee PUSHL #1 : 
E D4 0004 CLRL -(SP) 3 
50 8 ~ DO 0004A VL packer. RO : 
C AO DD bee PUSHL 12(RO) : 
4 f DD 2 PUSHL B : 
DD 4 PUSHL : 
E 0D g PUSHL_ SP 3 
00006 4 F PUSHAB oacess FILE : 
00000000G 9F 8 FB 0005C CALLS » @#SYSSCMKRNL : 


CREATE ifeseort9ge 03:13:48 yareyy BLsegcd2,v4.05249 Page 2 


7E D4 CLAL -(SP) ; 0810 
5E gD PUSHL SP 3 
00006 ff F PUSHAB STAR 3 
00000000G 9F 3 FB 8 CALLS #3, DPSYSSCMKRNL : 
04 000 RET ; 0811 
; Routine Size: 115 bytes, Routine Base: S$CODE$S + 0137 


; 431 0812 1 


pojfojelololololo) 
02.0900 CO CD OD CD CD0D 


WANA AAAI AAAI APN NPONPNINPINYNNN 2 PO Oe 


‘(G2 Cd CD Cd Cd CD Cd OD Cd CD Cd Cd Cd C9 C9 C9 CD CD 
FW 9 ODNAUNES WN $ O ODNAUES WN S(O ODNAYV SWN "OOOVNOUS WwW 


DAA 


AAO 
WN —OOONOUSWN OOD 


& SEER RLRL ERR EEE 


2.00 09 09 00 Co 
SDL IFIPIP III III IAN at tt st st st kk kk kk kd td tt ot 
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H 
1esseor}aRe 3:12:45 YMGLL SLdegcd2 ae. 232 


GLOBAL ROUTINE SET_USER_EOT(FIB) : COMMON_CALL NOVALUE = 


17 bytes, 


: por DESCRIPTION: 


This routine sets the Mode of the to user enabled E0OT processing 
when the FIBSC_USEREOT bit is set in the FIBSW_CNTRLFUNC 


| CALLING SEQUENCE: 
set_user ~eot (arg!) 


INPUT PARAMETERS: 
Argi = address of copy of user file identification block 


aPLER eS INPUTS: 
none 


{ OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
VCBSW_MODE may be modified 


i ROUTINE we 


SIDE EFFECTS: 
none 


~ BEGIN 
EXTERNAL REGISTER 
COMMON_REG; 


MAP 
FIB : REF BBLOCK; ! File information block 
IF .FIBCFIBSW_CNTRLFUNC) EQL FIBSC_USEREOT 


THEN 
CURRENT_VCBCVCB$V_ENUSEREOT) = 


0000 00000 ENTRY SET TUSER_ EOT, Save nothing 
50 04 ac D0 00002 MOVL 
OF 16 AO B61 000 CMPW bo koN #15 
04 12 OA BNEQ ¢ 
2D «AB 2 8 O¢ BISB2 #2, 45(CURRENT_VCB) 
4 00010 1$: RET 


Routine Base: S$CODE$S + O1AA 


iboseoctgee oge12345 yactt 8 3h rage 4 


ARAVLSSSRLES 
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NOULSWN—O 


a ed a a a ta ed 
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Sep-1984 AX-11 Bliss-32 V4.0-74 P 
1bosen-1944 93: 13: 3 MTAACP. SRCICREATE B32; “yt 33 
GLOBAL ROUTINE WRITE_HEADERS : LSWRITE_HEADER NOVALUE = 

'e+ 

i 


' FUNCTIONAL DESCRIPTION: 

his routine inserts ghe file section and sequence number into hdr1, 
nserts the header label identifiers, zeroes the block count, and 
writes hdri, hdr2, hdr3, and hdr4. 


! CALLING SEQUENCE: 
write_headers() 


INPUT a 


WO OONO 


ODOOOOCOCCOCOOOCCOoOO 


Soeese 


POPDPIPIPOPOPOPIPINIPIPIPIMPINININPIPINDNININIAI A) a dn a tt tt nk kt tt kk kk kk 


IMPLICIT of NPuts; 
, hdr2, hdr3, and hdr4 partially formatted 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
hdri, hdr2, hdr3 and hdr4 written 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 
none 


BEGIN 
EXTERNAL REGISTER 
COMMON : 


LOCAL 
descriptor for file section and sequence number 
DESCR : VECTOR (2); 

store file section and sequence number 

DESCREO] = = A Ap EESECNO + CWO}: FILESEQNO; 


$T_FILESEC 
SYSSFADCDESCRIPTOR(® 1Z2Ut 4lW") 


Desc 
CURRENT VCBCVCB$W_CUR -S£0} 

. CURRENT~VCBLVCB$W~CUR-NUMJ) ; 
: zero block count 


CHSFILL('O", HD1$S_BLOCKCNT, HORICHD1$T_BLOCKCNT)); 


<o 
<= 


Kk 5 
CREAT 16-Sep-1984 02:12: AX-11 Bliss-32 V4.0-74 P 
FOr-080 1Erep-18he 95:18:33 == PAN aAL Bbiescz2 ve -03048 ase 16 
3 913 
; 5 aie H inserts header Label identifiers 
; 16 HDRICHDISL_HD1LID] = ‘HDR1'; 
; 91 HOR HD¢SL HD LID] = "HDR2': 
: 539 gi8 HDRSCHDS$L-HD3LID] = ‘HDRS': 
3 40 319 HDR4CHD4SL-HD4LID] = ‘HDRG': 
; 4g 3 1 ! now write headers 
> 544 9 4 WRITE_BLOCK(.HDR1, ANSI_LBLSZ); 
; 45 2 4 WRITE“BLOCK(<HDR2. ANSI“LBLSZ): 
; is 03 ; : write hdr3 and hdr4 only if mount switch allows it 
: 550 0929 IF NOT .CURRENT_VCBLVCB$V_NOHDR3] AND .CURRENT_VCBLVCBSB_LBLCNT) GTR 2 
BO BEE cn 
: 55 093 WRITE_BLOCK(.HDR3, ANSI_LBLSZ); 
: 554 $938 IF .CORRENT VCBLVCB$B ‘at ents 6TR 3 
; te 0934 THEN WRITE_BLOCKT.HDR4, ANSI_LBLSZ); 
. — 
; 558 0937 1 END; ! end of routine 
57 SA 34 21 57 SA 34 21 OO1BB P.AAB: ASCII \!4Z2W!47W\ : 
001¢3 “BLKB 
00000008 001C4 P.AAA: <LONG 8 : 
00000000" 001¢8 “ADDRESS P.AAB : 
007C  8F BB 00000 WRITE_HEADERS:: 
PUSHR #*M<R2,R3,R4,R5,R6> : 0856 
SE 04 C2 00004 SUBL2 #4, SP ; 
08 DD 00007 PUSH : 090 
04 AE 00006 CF 1B C1 00009 ADDL3 #27, HDR1, DESCR+4 : 090 
7E 34 AB 3C 00010 MOVZWL 36 (CURRENT _VCB) -(SP) : 0908 
7E 6 AB 3C 00014 MOVZWL 38(CURRENT-VCB). -(SP) : 0907 
08 AE 9F 00018 PUSHAB DESCR : 0904 
7E D4 18 CLRL = =(SP) : 
D8 AF 9F 0001D PUSHAB P.AAA ; 
000000006 9F 00 9 CALLS #5, @#SYSSFAO ; 
56 00006 00 OVL. DRI, R : 0912 
30 6E ‘ 0 00 c MOVCS #0, (SP), #48, #6, 54(R6) 
66 15 444 0033 MOVL § #827475016, (R6) > 0916 
90006 DF : 446 0 A MOVL #844252232. BHDR? : 0917 
0006 DF 3352444 43 MOVL @ 61 48; @HDR : 091 
00006 DF 452444 4g MOVL § #877806664. @HDR4 : 091 
E 5 38 MOV ZBL #80, -(SP) ; 092 
00006 CF CALLS #2, WRITE LOCK : 
7. 50 bop MOVZBL #80, -(SPY > 0924 


; Routine Size: 


0000G CF 


0000G CF 
03 


7E 
00006 gf 
E 


Routine Base: 
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Oo 


Be 93:18:97 © UAtaAcecsneScaeatese3es1 


HDR2 
He WRITE _BLOCK 
44(CURRENT_VCB) 


(CURRENT_VCB), #2 
#80, -(SP) 


D 
#2, WRITE BLOCK 
TBtCURRENTLVCBD #3 


#80, -(SP) 

HDRS 

H : WRITE BLOCK 
#°M<R2,R3,R4,R5,RO> 
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m5 
vOs~000 1esepn tebe 18:48:37 ERTAACPSSRESCREAYE 83211 


3 6 +44 ! ROUTINE INIT_NEW_FILE (INC_SEQ_NUM) : COMMON_CALL NOVALUE = 

; 941 1 !e4 

: 564 942 1! 

: 65 94 1 ! FUNCTIONAL DESCRIPTION: 

5 98 944 1! his routine initializes the file identifier and sets status 
; 56 945 1! indicators. 

; 568 8308 1! 

; 569 0947 1 ! CALLING SEQUENCE: 

3 279 B368 : INIT_NEW_FILE(ARG1), called in kernel mode 

; 2c¢ 0356 1 ! INPUT PARAMETERS: 

s $7 9 7% INC_SEQ_NUM = iNDICATES IF THE CURRENT FILE NUMBER IN THE vcb 
3; 574 $336 1! should be incremented or not. 

s S75 0953 1! 

3; 576 Bee 1 ! IMPLICIT INPUTS: 

3 ras B32? : CURRENT_VCB = address of current volume control block 

; 579 0989 1 ! OUTPUT PARAMETERS: 

: 580 0958 1! none 

; 581 3a) 1! 

3 266 960 1 ! IMPLICIT OUTPUTS: 

: 37 349 : : current file id, starlet file indicator updated 

; 585 0963 1 ! ROUTINE VALUE: 

3; 586 0964 1! none 

; 587 0965 1! 

; 588 0966 1 ! SIDE EFFECTS: 

; 589 0967 1! none 

; 590 0968 1! 

s 391 0969 1 !-- 

3 o36 0970 1 

: 59 0971 2 BEGIN 

; 594 0972 2 

3; 595 097 § EXTERNAL REGISTER 

; 596 0974 COMMON _REG; 

; 597 0975 

; 598 0976 ! if end of volume set or dummy file, inc file number 

; 599 0977 ! 

; 600 0978 

; $8 344 IF .INC_SEQ_NUM 

: 60 4 (. CURRENT_VCBCVCBS$B_CUR_RVN] EQL 1 AND .CURRENT_VCBCVCB$W_CUR_NUM] EQL 0) 
; 605 338 CURRENT_VCBCVCB$W_CUR_NUM] = .CURRENT_VCBLVCB$W_CUR_NUM] + 1; 
H 07 985 CURRENT_VCBCVCB$W_CUR_SEQ]) = 1; 

3 608 98 CURRENT-VCBLVCBSV-STARFILE) = 1; 

: a0 + 4 CURRENT_VCBLVCB$B_LBLCNTJ = NO_OF__SUPPORT_ANSI_LABELS; 

: ot; 4:44 : set status indicators to show partial file 

; aE 991 CURRENT_VCBCVCBSV_PARTFILE) = 1; p 

3; 614 992 END; ' end of routine 


CREATE 


v04-000 


3; Routine Size: 


615 


37 bytes, 


0993 


1 


N 5 
16-Sep-1984 02:12:4 AX-11 Bi leg =32 V4.0-742 P 19 
12 30-1984 93:18:37 MTAACP. SRO CREATE .B32;1 te (6) 


0000 00000 INIT_NEW_FILE: 
WORD 


‘ Save no ning ; 0939 
0B 06 ac 2 BL INC_SEQ_NUM, 1$ : 0979 
01 2F A 4 6 CHB 47 (CURRENT _ VCB), #1 : 0981 
24 =O e C TSTW § (CURRENT. vcB) : 
0 F BNEQ 3 
24 AB B 11 1$: INCW 6(CURRENT vce) + 0983 
AB 1 0014 2$: MOVW 8 =so#1, 8(CUR RENT_VCB) + 0985 
2D =AB 1 0018 BISB2 #1, 45(CURRENT_VCB) : 098 
48 AB 4 iC MOVB. #4, 72(CURRENT-VCB) : 098 
AB 1 8 90020 BISB2 #1, 11(CURRENT-VCB) + 0991 
04 00024 RET : 0992 


Routine Base: S$CODE$ + 026C 


PAAAAARAAAAAAA AA AAAAO 


WANNA Aw 
=O DONOULSWN —ODOONOUS Wh OOM 


OB AB 


; Routine Size: 


659 
660 


AX-11 B 


Liss-32 V4.0-74 
MTAACP.SR ScReave 8301 


ow 


1Soseoctgee 03212345 


83¢ ROUTINE UPD_PARTFILE (BIT_VALUE) : COMMON_CALL NOVALUE = 
99 1+ 
99 i 
998 FUNCTIONAL DESCRIPTION: 
8 This routine clears or sets the partial file flag in the VCB. 
0 CALLING SEQUENCE: 
8 UPD_PARTFILE(ARG1), called in kernel mode 
0 INPUT PARAMETERS: 
8 Value to which flag should be set to: 
0 - clear flag 
8 1 = set flag 


IMPLICIT INPUTS: 
CURRENT_VCB 


OUTPUT Ppt 
statist: | OUTPUTS: 
PARTFILE flag in VCB is updated 
ROUTINE VALUE: 
none 


NM 2 SS | OOO OOOOCOOCSC DO 
SOOWONAOUESWN (OO ONOUESWN "O00 


SIDE EFFECTS: 


a a a a kk ak a ak tk td td ot 8 2 8 8 2 2 1 OO 
= PONOPIPINPONONIND) 9 


fe oe we oe ne ne we fefofelelolelelelelelolololololo) 


21 

$$ none 

2 

24 -- 

$2 

$$ BEGIN 

28 EXTERNAL REGISTER 

50 COMMON_REG; 

H Update Partial file flag in the VCB 

33 CURRENT_VCBLVCBSV_PARTFILE) = .BIT_VALUE; 
35 END; ! end of routine 


0000 00000 UPD toad 


Sav 
AC FO 00002 ay B 
04 00009 RET 


ave nothin 
IT 


01 00 04 * VALUE , “ho. #1, 11(CURRENT_VCB) 


10 bytes, Routine Base: $CODE$S + 0291 


1036 1 
1037 1 END 


roe 8 


C 6 
CREATE 1y-sen- 138% 02:12:45 VAX-11 Bliss-32 V4.0-7 
v04-000 14-Sep-1984 12:46:37 CMTAACP.SRCICREATE.B32;1 
; 661 1038 1 
; 662 1039 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
; SCODES 667 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: cocceee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
> _$255$DUA28:CSYSLIBILIB.L32;1 18619 50 0 1000 00:01.8 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CREATE/OBJ=OBJ$:CREATE MSRCS$:CREATE/UPDATE=(ENHS$: CREATE) 


650 code + 17 data bytes 
3 ke Tine: 


:R 0:16. 
3 00:54.4 
; Lines/CPU Min: 822 
: Seen A fig 19074 
5 ry Used: 153 pages 
3 ose ation Complete 


42 Page wy 
(7) 


0254 AH-BT13A-SE MENT CORPORATION 
JT VAX/VMS V4.0 | PROPRIETARY 


